Tricks of the Mac Game Programming Gurus/TricksOfTheMacGameProgrammingGurus.iso/More Source/C⁄C++/Xconq 7.0d37/lib/classic.g

Text File | 1995-05-04 | 15KB | 553 lines

(game-module "classic"
  (title "Classic Xconq")
  (blurb "The classic Xconq game, loosely based on WW II ca 1945.  For old Xconq hands only.")
  (variants
    (world-seen false)
    (world-size (60 30 60))
    ("Own Initial Towns" own-initial-towns
       (true
      (add * start-with 5)
     (add * independent-near-start 0)
     ))
    )
)

(unit-type infantry (image-name "soldiers"))
(unit-type armor (image-name "tank"))
(unit-type fighter (image-name "fighter"))
(unit-type bomber (image-name "4e"))
(unit-type destroyer (image-name "dd"))
(unit-type submarine (image-name "sub"))
(unit-type troop-transport (name "troop transport") (image-name "ap"))
(unit-type carrier (image-name "cv") (char "C"))
(unit-type battleship (image-name "bb") (char "B"))
(unit-type nuclear-bomb (name "nuclear bomb") (image-name "bomb") (char "N"))
(unit-type base (image-name "airbase") (char "/"))
(unit-type town (image-name "town20") (char "*"))
(unit-type city (image-name "city20") (char "@"))

(define i infantry)
(define a armor)
(define f fighter)
(define b bomber)
(define d destroyer)
(define s submarine)
(define t troop-transport)
(define cv carrier)
(define bb battleship)
(define nk nuclear-bomb)
(define / base)
(define * town)
(define @ city)

(material-type fuel)
(material-type ammo)

(terrain-type sea (color "sky blue") (char "."))
(terrain-type shallows (color "cyan") (char ","))
(terrain-type swamp (color "yellow green") (char "="))
(terrain-type desert (color "yellow") (char "~"))
(terrain-type plains (color "green") (char "+"))
(terrain-type forest (color "forest green") (char "%"))
(terrain-type mountains (color "sienna") (char "^"))
(terrain-type ice (color "white") (char "_"))
(terrain-type vacuum (color "black") (char ":"))

(define makers (* @))
(define ground (i a))
(define aircraft (f b))
(define ship (d s t cv bb))
(define cities (/ * @))
(define movers (i a f b d s t cv bb nk))

(define water (sea shallows))
(define land (plains forest desert mountains))

(set edge-terrain ice)

;;; Setup.

(set alt-blob-density 5000)
(set alt-blob-size 40)
(set wet-blob-density 1000)
(set wet-blob-size 100)

(add t* alt-percentile-min (  0  68  69  70  70  70  93  99  0))
(add t* alt-percentile-max ( 68  69  71  93  93  93  99 100  0))
(add t* wet-percentile-min (  0   0  50   0  20  80   0   0  0))
(add t* wet-percentile-max (100 100 100  20  80 100 100 100  0))

(add @ start-with 1)
(add * independent-near-start 5)
(set country-radius-min 2)
(set country-separation-min 16)
(set country-separation-max 48)
;; Try to get countries on the coast.
(add (sea plains) country-terrain-min (3 6))

(table favored-terrain
  (u* t* 0)
  (@ plains 100)
  (* land 20)
  (* plains 40)
  )

(table independent-density
  (town (plains desert mountains forest) (100 50 50 50))
  )

(table unit-initial-supply
  (u* fuel ( 6 10 18 36 100 100 200 400 200 1 200 500 900))
  (u* ammo ( 6  4  3  3  20  10  20  40  40 1 100 200 400))
  )

;;; Unit-unit relationships.

(table unit-capacity-x
  (cv fighter 4)  ; this part of a carrier's capacity can't be used by bombers
  )

(table unit-size-as-occupant
  (u* u* 100) ; disables occupancy by default
  ((i nk) b 1)
  (ground t 1)
  ((f b) cv (1 2))
  (u* / 2)
  (fighter / 1)
  (movers (* @) 1)
  ;; higher sizes for ships? used to be 6 for bbs, etc
  )

(add u* capacity (0 0 0 1 0 0 6 4 0 0 20 40 80))

(table occupant-max
  (u* u* 100)
  )

;;; Unit-terrain relationships.

(table vanishes-on
  (ground water true)
  (cities water true)
  (ship land true)
  (u* ice true)
  (aircraft ice false)
  )

;; Always only one unit per cell.

(table unit-size-in-terrain
  (u* t* 1)
  )

(add t* capacity 1)

;;; Unit-material relationships.

(table unit-storage-x
  (u* fuel ( 6 10 18 36 100 100 200 400 200 1 200 500 900))
  (u* ammo ( 6  4  3  3  20  10  20  40  40 1 100 200 400))
  )

(table base-production
  (ground fuel 1)
  (cities fuel (10 20 50))
  (cities ammo (5 10 20))
  )

(table productivity
  (i (desert mountains) 0)
  (a (desert forest mountains) 0)
  (/ land (100 50 20 20))
  (* land (100 50 20 20))
  (@ land (100 50 20 20))
  )

; fighter fuel consumption is problem for carriers, should probably
; make carrier prod high or else bump up capacity
; (on the other hand, high consumption *is* more realistic...)

(table base-consumption
  ((i f b) fuel (1 3 2))
  (ship fuel 1)
)

(table hp-per-starve
  ((i f b) fuel 1.00)
  (ship fuel 10.00)
  )

; 0 [ f b ] consume-as-occupant

;;; Actions.

(add u* acp-per-turn  (1 2 9 6 3 3 2 4 4 1 0 1 1))

;;; Movement.

(add (/ * @) speed 0)

(table mp-to-enter-terrain
  ((cv bb) shallows 2)
  ;; Accident prevention.
  ((i a) (sea shallows) 99)
  (ship land 99)
  (a (swamp forest mountains) 99)
)

;;; Everybody needs and uses fuel to move, except for nukes.

(table material-to-move
  (movers fuel 1)
  (nk fuel 0)
)

(table consumption-per-move
  (movers fuel 1)
  (nk fuel 0)
)

(table mp-to-enter-unit
  (u* u* 1)
  ;; Aircraft can't sortie again until next turn.
  (f u* 9)
  (b u* 6)
  (ship u* 0)
  (nk u* 0)
  ;; Armor can travel quickly on the many roads found around cities.
  (a (* @) 0)
)

;;; Construction.

(add nk tech-max 60)
(add nk tech-to-build 60)

(table acp-to-research
  ;; only cities can research nukes
  (@ nk 1)
  )

(table tech-per-research
  ;; only cities can research nukes
  (@ nk 1.00)
  )

(table acp-to-toolup
  ((* @) u* 1)
  )

(table tp-to-build
  (* movers (1 2 2 3 2 3 2 6 8 4))
  (@ movers (1 2 2 3 2 3 2 6 8 4))
  )

(table tp-max
  (* movers (1 2 2 3 2 3 2 6 8 4))
  (@ movers (1 2 2 3 2 3 2 6 8 4))
  )

(add u* cp (4 7 8 16 10 16 12 30 40 20 3 1 1))

(table acp-to-create
  (ground / 1)
  ((* @) movers 1)
  )

(table cp-on-creation
  (ground / 1)
  ((* @) movers 1)
  )

(table acp-to-build
  (ground / 1)
  ((* @) movers 1)
  )

(table cp-per-build
  (ground / 1)
  ((* @) movers 1)
  )

; which way does old Xconq really work?
;(table supply-on-creation
;  (u* fuel ( 6 10 18 36 100 100 200 400 200 1 200 500 900))
;  (u* ammo ( 6  4  3  3  20  10  20  40  40 1 100 200 400))
;)

(table hp-per-repair
  ((* @) u* 1)
  (/ u* 3)
  ((cv bb) (cv bb) 10)
  (i cities (1 10 10))
)

;;; Vision.

; 10 s visibility
; 10 N visibility

(add (* @) see-always true)

(add @ vision-range 3)

;;; Combat.

(add u* hp-max (1 1 1 2 3 2 3 4 8 1 10 20 40))

;; Units are generally crippled at about 50% of hp-max.

;(add movers hp-at-max-speed (1 1 1 2 2 2 2 2 4 1))
;(add movers hp-at-min-speed (0 0 0 1 1 1 2 2 1 0))
(add movers speed-min    (0 0 0 3 3 3 2 1 2 1))

;;; The main hit chance table.

(table hit-chance
  (i  u* ( 50  40  20  15  20  20  30  20   9  40  80  60  40))
  (a  u* ( 60  50  30  30  30  20  30  20  20  50  90  70  50))
  (f  u* ( 15  25  60  70  20  30  20  50  40  80 100 100 100))
  (b  u* ( 20  20  10   9  30  50  50  70  60  50  90  95  99))
  (d  u* (  5   5  10   5  60  70  60  40  20   0  99  90  80))
  (s  u* (  0   0  10   5  40  10  60  40  50   0   0   0   0))
  (t  u* ( 20   5  10   5  40  40  40  30   9   0   0   0   0))
  (cv u* ( 30  20  40  10  30  30  40  20  20   0   0   0   0))
  (bb u* ( 50  50  50  20  70  50  90  50  90   0 100 100 100))
  (nk u* ( 99  99  99  99  99  99  99  99  99   0  99  99  99))
  (/  u* ( 10  10  20  20  20  20  30  20  20   0   0   0   0))
  (*  u* ( 30  20  50  40  40   0  30  20  20   0   0   0   0))
  (@  u* ( 50  40  70  60  50   0  30  20  50   0   0   0   0))
  )

;;; The main damage table.

(table damage
  (u* u* 1)
  (a cities 2)
  (b ship 2)
  (b s 1)
  (b cities (2 2 3))
  (d s 2)
  (s ship 3)
  (s bb 4)
  (bb u* 2)
  (bb (* @) 3 4)
  (nk u* 60)   ; wham!
  )

(table capture-chance
  (i cities (70 50 30))
  (a cities (90 70 50))
  )

(table independent-capture-chance
  (i cities (100 80 50))
  (a cities (100 95 70))
  )

;; Attack and counterattack are completely symmetrical.

;(table counter-strength (u* u* 100))

;; infantry can capture cities even on water.

(table bridge
  (i cities true)
  )

(table protection ; actually ablation?
  ; cities offer some protection to occupants
  (cities movers 50)
  ; inf and armor protect the cities housing them.
              ; can't make this too large or city can be
              ; invulnerable.
  (i cities 5)
  (a cities 10)
  ; bases benefit more from protection.
  ((i a) / (15 25))
  )

;; We need ammo to hit with, but no details about types etc.

;(table hits-with (u* ammo 1))

(table hit-by
  (u* ammo 1)
  )

;(add ground destroy-message "defeats")
;(add ship destroy-message "sinks")
;(add aircraft destroy-message "shoots down")
;(add cities destroy-message "flattens")

;;; Other Actions.

(add movers acp-to-disband 1)

;; This does everybody in one shot.

(add movers hp-per-disband 10)

;; Takes a while to dismantle a base.

(add / hp-per-disband 2)

;; Only infantry cannot change hands.

(add u* acp-to-change-side 1)
(add i acp-to-change-side 0)

(add i possible-sides (not "independent"))

;; Special characteristics for nuclear bombs.

;(add N can-counter false)
;(add nk self-destructs true)

;;; Economy.

(table out-length
  ;; These types should never give up any of their supplies.
  ((i a f b nk) m* -1)
  )

;;; Scoring.

(add (* @) point-value (1 5))

(scorekeeper (do last-side-wins))

;;; Documentation.

(game-module (instructions (
  "If you've played version 5, then just play this in the same way."
  "If you've never played version 5, choose the `standard game' instead."
  )))

(game-module (notes (
  "(This attempts to be an accurate rendition of 5.x.)"
  "(The old notes follow:)"
  ""
  "This game is the most commonly played Xconq game.  It"
  "represents units of about 1945, from infantry to atomic bombs.  This is"
  "familiar, which makes it easier to play, but also more controversial,"
  "since historians have many conflicting theories about which kinds of"
  "units were most effective."
  ""
  "Opinions differ about optimal strategy for this game.  In general,"
  "blitzkrieg works, and can win the game in a hurry.  The problem is to"
  "muster enough force before striking.  One full troop transport is not"
  "enough; the invasion will melt away like ice cream on a hot sidewalk,"
  "unless"
  "reinforcements (either air or land) show up quickly.  Air cover is very"
  "important.  While building up an invasion force, airborne assaults using"
  "bombers and infantry can provide useful diversions, although it can be"
  "wasteful of bombers.  Human vs human games on a 60x30 world generally"
  "last about 100 turns, usually not enough time or units to build atomic"
  "bombs or battleships, and not a big enough world to really need carriers"
  "(although bases for staging are quite useful)."
  )))

(add u* help
("marches around and captures things"
"faster than infantry, limited to open terrain"
"interceptor to get those nasty bombers"
"long range aircraft, carries infantry and bombs"
"fast, cheap, and sinks subs"
"sneaks around and sinks ships"
"carries infantry and armor across the pond"
"carries fighters and bombers around"
"the most powerful ship"
"leveler of cities (and anything else)"
"airbase plus port"
"smaller than a city"
"capital of a side"))

(add i notes (
  "The infantry division is the slowest of units, but it can go almost"
  "anywhere.  It is also quick to produce.  Infantry is the staple of"
  "campaigns - a little boring perhaps, but essential to success."
  ))
(add a notes (
  "The armor division is highly mobile and hits hard.  Unfortunately,"
  "it is limited to operating in open terrain - plains and desert.  It also"
  "takes longer to produce.  Armor can last twice as long in the  "
  "desert as infantry.  Both armor and infantry can"
  "assault and capture cities; they are the only units that can do so."
  ))
(add f notes (
  "A fighter is a squadron or wing of high-speed armed aircraft."
  "Their fuel supply can be gotten only at units, towns, and bases, so they"
  "must continually be taking off and landing.  Fighters are not too effective"
  "against ground units or ships, but they eat bombers for lunch.  Fighters"
  "are very good for reconnaisance - important when you can't always"
  "see the enemy moving!"
  ))
(add b notes (
  "Bombers are very powerful, since they can seriously damage"
  "or even flatten cities.  Loss rate in such activities is high, so they're"
  "not a shortcut to victory!"
  "Bombers can carry one infantry, which is very useful for raiding."
  ))
(add d notes (
  "Destroyers are fast small ships for both exploration and"
  "anti-submarine activities."
  ))
(add s notes (
  "The favorite food of submarines is of course merchant shipping"
  "and troopships, and they can sink troop transports with one blow."
  "Subs are also invisible, but vulnerable to destroyers and aircraft."
  ))
(add t notes (
  "This is how ground units get across the sea.  They can"
  "defend themselves against ships and aircraft, but are basically vulnerable."
  "They're not very fast either."
  ))
(add cv notes (
  "Compensates for the fighter's limited range by providing"
  "a portable airport.  Carriers themselves are sitting ducks, particularly"
  "with respect to aircraft.  Fighter patrols are mandatory."
  ))
(add bb notes (
  "The aptly named `Dread Naught' has little to fear from other"
  "units of this period.  Subs may sink them with enough effort, and a group"
  "of bombers and fighters are also deadly,"
  "but with eight hit points to start,"
  "a battleship can usually survive long enough to escape."
  "Battleships are very"
  "effective against cities and armies, at least the ones on the coast."
  ))
(add nk notes (
  "Atomic bombs.  The Final Solution; but they are not easy to use.  A bomb"
  "takes a long time to produce, moves very slowly by itself, and is easily"
  "destroyed by other units. The plus side is instant destruction for any unit"
  "of any size!  Bombs are imagined to be transported by a team of scientists,"
  "and so can go on any sort of terrain without running out of supplies."
  ))
(add / notes (
  "To simplify matters, this can serve as a camp, airbase, and port."
  "Bases cannot build units, although they can repair some damage."
  ))
(add * notes (
  "Towns are the staple of territory.  They can build, repair, produce"
  "fuel and ammo, and serve as a safe haven for quite a few units."
  ))
(add @ notes (
  "Cities are very large, powerful, and well defended.  They are"
  "basically capital cities, or something in a comparable range.  (New York"
  "and San Francisco are cities, Salt Lake City and San Antonio are towns."
  "Yeah, San Antonio has a lot of people, but it's still insignificant,"
  "nyah nyah.)  A city is worth five towns, territory-wise."
  ))

(set synthesis-methods
  '(make-fractal-percentile-terrain make-countries make-independent-units
    make-initial-materials name-units-randomly))

(include "nat-names")

(add (* @) namer "random-town-names")

(include "town-names")